home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dispms / jeremy.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  80 lines
  1. VERSION 2.00
  2. Begin Form Jeremy 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   3840
  5.    ClientLeft      =   870
  6.    ClientTop       =   1530
  7.    ClientWidth     =   2880
  8.    ControlBox      =   0   'False
  9.    Height          =   4245
  10.    Left            =   810
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3840
  15.    ScaleWidth      =   2880
  16.    Top             =   1185
  17.    Width           =   3000
  18.    Begin ListBox List1 
  19.       Height          =   1590
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   2220
  23.       Width           =   2895
  24.    End
  25.    Begin Image Image1 
  26.       Height          =   3612
  27.       Left            =   0
  28.       Picture         =   JEREMY.FRX:0000
  29.       Stretch         =   -1  'True
  30.       Top             =   0
  31.       Width           =   2892
  32.    End
  33. End
  34. 'JEREMY.FRM: VBC Version
  35. 'Note: Header re-ordering can leave full-line comments out of order
  36.  
  37. Sub Form_DblClick ()
  38.   Unload Me
  39. End Sub
  40.  
  41. Sub Form_KeyPress (KeyAscii As Integer)
  42.   Unload Me
  43. End Sub
  44.  
  45. Sub Form_Load ()
  46.   Temp% = (Screen.Width / 2) - (Jeremy.Width / 2)
  47.   If Temp% > 0 Then
  48.     Jeremy.Left = Temp%
  49.   End If
  50.   Temp% = (Screen.Height / 2) - (Jeremy.Height / 2)
  51.   If Temp% > 0 Then
  52.     Jeremy.Top = Temp%
  53.   End If
  54.   List1.AddItem "Rufan Redi Productions"
  55.   List1.AddItem "Jeremy E Cath"
  56.   List1.AddItem ""
  57.   List1.AddItem "Stoke Cottage, Marsh Lane"
  58.   List1.AddItem "Taplow, Maidenhead"
  59.   List1.AddItem "Berkshire. United Kingdom"
  60.   List1.AddItem "SL6 0DF"
  61.   List1.AddItem ""
  62.   List1.AddItem "Tel/Fax: +44 (0)628 789229"
  63.   List1.AddItem "Mobile: 0385 304532"
  64.   List1.AddItem "CompuServe: 100315,521"
  65.  
  66. End Sub
  67.  
  68. Sub Image1_DblClick ()
  69.   Unload Me
  70. End Sub
  71.  
  72. Sub List1_DblClick ()
  73.   Unload Me
  74. End Sub
  75.  
  76. Sub List1_KeyPress (KeyAscii As Integer)
  77.   Unload Me
  78. End Sub
  79.  
  80.